home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed17.d64 / lesson 13 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  250 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <NO>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON 13                WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"           (null)WO (null)TEP (null)ROBLEMS  OPEN          WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC "
  46. 165 [141]90
  47. 170 [153]"LOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  LEFT$ELEN PAID 6 CENTS FOR A PEN AND
  51. 210 PRINT"  10 CENTS FOR A NOTEBOOK.
  52. 215 [153]"  LEFT$OW MUCH CHANGE SHOULD SHE GET FROM     A QUARTER?"
  53. 220 [141]81:[141]70
  54. 225 [153]"             ON"
  55. 230 [133] A$
  56. 240 [139]A$[179][177]"9"[175]A$[179][177]"$.09"[175]A$[179][177]"9 CENTS"[167] 270
  57. 250 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  58. 260 P[178]P[170]1:[137]300
  59. 270 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  60. 275 [139]Z[178]2[167]G[178]G[170]1:[137]285
  61. 277 [153]"SYSON  (null)RY AGAIN                            OPEN" :[141]70:[141]81:W[178]W[170]1
  62. 279 [153]"ON                                        ONONONONONONON":[137]225
  63. 285 [153]"ONONSYS   (null)HE CORRECT ANSWER IS  9 SYS CENTS.":[141]82
  64. 290 [153]"   6 + 10 = 16                      ":[141]82
  65. 292 [153]"   AND 25 - 16 = 9
  66. 295 GOSUB82:GOSUB90
  67. 300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
  68. 305 PRINT"  [199]RACE BOUGHT A CAN OF SOUP FOR
  69. 310 [153]"  60 CENTS AND 4 APPLES FOR 25 CENTS.
  70. 315 PRINT"  [200]OW MUCH CHANGE WILL THE GROCER GIVE    HER FROM A DOLLAR?"
  71. 320 GOSUB81:GOSUB70
  72. 325 PRINT"             [145]"
  73. 330 INPUT A$
  74. 340 IFA$<>"15"ANDA$<>"15 CENTS"ANDA$<>"$.15"THEN370
  75. 350 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  76. 360 P=P+1:GOTO400
  77. 370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  78. 375 IFZ=2THENG=G+1:GOTO385
  79. 377 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  80. 379 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO325
  81. 385 PRINT"[145][145][158]   [212]HE CORRECT ANSWER IS  15 [158] CENTS.":GOSUB82
  82. 390 PRINT"    60 + 25 = 85                  ":GOSUB82
  83. 392 PRINT"   AND 100 - 85 = 15 "
  84. 395 GOSUB82:GOSUB90
  85. 400 PRINT"[152][147]               [209]UESTION 3 [146][159]":Z=0
  86. 405 PRINT"  [200]OW MUCH CHANGE DID [205]ARY RECEIVE
  87. 410 [153]"  FROM A DOLLAR WHEN SHE BOUGHT A
  88. 415 PRINT"  DOZEN APPLES FOR 55 CENTS AND A BAR     OF SOAP FOR 7 CENTS?
  89. 420 [141]81:[141]70
  90. 425 [153]"             ON"
  91. 430 [133] A$
  92. 440 [139]A$[179][177]"38"[175]A$[179][177]"38 CENTS"[175]A$[179][177]"$.38"[167]470
  93. 450 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  94. 460 P[178]P[170]1:[137]500
  95. 470 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  96. 475 [139]Z[178]2[167]G[178]G[170]1:[137]485
  97. 477 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  98. 479 [153]"OPENONON                                        ONONONONONONON":[137]425
  99. 485 [153]"ONONSYS   (null)HE CORRECT ANSWER IS  38 SYS CENTS.":[141]82
  100. 490 [153]"    55 + 7 = 62                       ":[141]82
  101. 492 [153]"    AND 100 - 62 = 38  "
  102. 495 [141]82:[141]90
  103. 500 [153]"PRINT#LOAD               (null)UESTION 4 WAITOPEN":Z[178]0
  104. 505 [153]"  (null)RS. PEEKROWN PAID 55 CENTS FOR A TURNIP
  105. 510 PRINT"  AND $1.30 FOR A BAG OF POTATOES.
  106. 515 [153]"  LEFT$OW MUCH CHANGE DID SHE GET FROM
  107. 517 PRINT"  A 2 DOLLAR BILL?"
  108. 520 GOSUB81:GOSUB70
  109. 525 PRINT"             [145]"
  110. 530 INPUT A$
  111. 540 IFA$<>"$.15"ANDA$<>"15 CENTS"ANDA$<>"15"THEN 570
  112. 550 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  113. 560 P=P+1:GOTO600
  114. 570 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  115. 575 IFZ=2THENG=G+1:GOTO585
  116. 577 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  117. 579 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO525
  118. 585 PRINT"[145][145][158]   [212]HE CORRECT ANSWER IS  15 [158] CENTS.":GOSUB82
  119. 590 PRINT"    .55 + 1.30 = 1.85                ":GOSUB82
  120. 592 PRINT"   AND 2.00 - 1.85 = .15
  121. 595 [141]82:[141]90
  122. 600 [153]"PRINT#LOAD               (null)UESTION 5 WAITOPEN":Z[178]0
  123. 605 [153]"  MID$ENNY BOUGHT A TAPE CASSETTE FOR $3
  124. 610 PRINT"  AND A COMPACT DISK FOR $9.75.
  125. 615 [153]"  LEFT$OW MUCH CHANGE DID SHE GET FROM        A TWENTY DOLLAR BILL?"
  126. 617 [153]"  (STR$ON'T FORGET THE $ SIGN)"
  127. 620 [141]81:[141]70
  128. 625 [153]"             ON"
  129. 630 [133] A$
  130. 640 [139]A$[179][177]"$7.25"[167] 670
  131. 650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  132. 660 P[178]P[170]1:[137]700
  133. 670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  134. 675 [139]Z[178]2[167]G[178]G[170]1:[137]685
  135. 677 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  136. 679 [153]"OPENONON                                        ONONONONONONON":[137]625
  137. 685 [153]"ONONSYS  (null)HE CORRECT ANSWER IS  $7.25 SYS     ":[141]82
  138. 690 [153]"   3.00 + 9.75 = 12.75                ":[141]82
  139. 692 [153]"   AND 20.00 - 12.75 = 7.25
  140. 695 GOSUB82:GOSUB90
  141. 700 PRINT"[152][147]               [209]UESTION 6 [146][159]":Z=0
  142. 705 PRINT"  [193]T A GARAGE SALE, [212]IM BOUGHT A BALL
  143. 710 [153]"  FOR $2.50 AND A BAT FOR $2.30.
  144. 715 PRINT"  [200]OW MUCH CHANGE DID HE GET FROM A       FIVE DOLLAR BILL?"
  145. 725 PRINT"             [145]"
  146. 730 INPUT A$
  147. 740 IFA$<>"20"ANDA$<>"20 CENTS"ANDA$<>"$.20"THEN770
  148. 750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  149. 760 P=P+1:GOTO800
  150. 770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  151. 775 IFZ=2THENG=G+1:GOTO785
  152. 777 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  153. 779 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO725
  154. 785 PRINT"[145][145][158]  [212]HE CORRECT ANSWER IS  20 [158] CENTS.":GOSUB82
  155. 790 PRINT"   2.50 + 2.30 = 4.80               ":GOSUB82
  156. 792 PRINT"   AND 5.00 - 4.80 = .20  "
  157. 795 GOSUB82:GOSUB90
  158. 800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
  159. 805 PRINT"  [200]ELEN BOUGHT A BAG OF FLOUR FOR
  160. 810 [153]"  $2.60, A LOAF OF BREAD FOR $1.40,
  161. 815 PRINT"  AND A POUND OF BUTTER FOR $1.80
  162. 817 [153]"  LEFT$OW MUCH CHANGE DID SHE GET FROM        A TEN DOLLAR BILL?
  163. 820 GOSUB81:GOSUB70
  164. 825 PRINT"             [145]"
  165. 830 INPUT A$
  166. 840 IFA$<>"$4.20"THEN 870
  167. 850 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  168. 860 P=P+1:GOTO900
  169. 870 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  170. 875 IFZ=2THENG=G+1:GOTO885
  171. 877 PRINT"[158][145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  172. 879 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO825
  173. 885 PRINT"[145][145][158]  [212]HE CORRECT ANSWER IS  $4.20 [158]     ":GOSUB82
  174. 890 PRINT"   2.60 + 1.40 +1.80 = 5.80          ":GOSUB82
  175. 892 PRINT"     AND 10.00 - 5.80 = 4.20
  176. 895 [141]82:[141]90
  177. 900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
  178. 905 [153]"  RIGHT$ BOUGHT 6 QUARTS OF OILS AT $1.90      A QUART.
  179. 910 PRINT"  [200]OW MUCH CHANGE DO [201] GET FROM A $20
  180. 915 [153]"  BILL?"
  181. 920 [141]81:[141]70
  182. 925 [153]"             ON"
  183. 930 [133] A$
  184. 940 [139]A$[179][177]"$8.60"[167]970
  185. 950 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  186. 960 P[178]P[170]1:[137]1000
  187. 970 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  188. 975 [139]Z[178]2[167]G[178]G[170]1:[137]985
  189. 977 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  190. 979 [153]"OPENONON                                        ONONONONONONON":[137]925
  191. 985 [153]"ONONSYS  (null)HE CORRECT ANSWER IS  $8.60 SYS      ":[141]82
  192. 990 [153]"      1.90 X 6 = 11.40               ":[141]82
  193. 992 [153]"  AND 20.00 - 11.40 = 8.60 "
  194. 995 [141]82:[141]90
  195. 1000 [153]"PRINT#LOAD               (null)UESTION 9 WAITOPEN":Z[178]0
  196. 1005 [153]"  CHR$EORGE BOUGHT A BIKE FOR $179.50.
  197. 1010 PRINT"  [200]OW MUCH CHANGE DID HE GET FROM
  198. 1015 [153]"  NINE TWENTY DOLLAR BILLS?"
  199. 1020 [141]81:[141]70
  200. 1025 [153]"             ON"
  201. 1030 [133] A$
  202. 1040 [139]A$[179][177]"50"[175]A$[179][177]"50 CENTS"[175]A$[179][177]"$.50"[167]1070
  203. 1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  204. 1060 P[178]P[170]1:[137]1100
  205. 1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  206. 1075 [139]Z[178]2[167]G[178]G[170]1:[137]1085
  207. 1077 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  208. 1079 [153]"OPENONON                                        ONONONONONONON":[137]1025
  209. 1085 [153]"ONONSYS  (null)HE CORRECT ANSWER IS  50 SYS CENTS.":[141]82
  210. 1090 [153]"  9 X 20 = 180           ":[141]82
  211. 1092 [153]"  AND 180.00 - 179.50 = .50  "
  212. 1095 [141]82:[141]90
  213. 1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
  214. 1105 [153]"  (null)HE (null)OHAWKS SCORED 17 GOALS AND THE
  215. 1110 PRINT"  [201]ROQUOIS SCORED 9 GOALS.
  216. 1115 [153]"  LEFT$OW MANY MORE GOALS DID THE (null)OHAWKS     SCORE?"
  217. 1120 [141]81:[141]70
  218. 1125 [153]"             ON"
  219. 1130 [133] A$
  220. 1140 [139]A$[179][177]"8"[167] 1170
  221. 1150 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  222. 1160 [137]1200
  223. 1170 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  224. 1175 [139]Z[178]2[167]G[178]G[170]1:[137]1185
  225. 1177 [153]"SYSON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  226. 1179 [153]"OPENONON                                        ONONONONONONON":[137]1125
  227. 1185 [153]"ONONSYS  (null)HE CORRECT ANSWER IS  8 SYS GOALS.":[141]82
  228. 1190 [153]"            17 - 9 = 8             "
  229. 1195 [141]82:[141]90
  230. 1200 [153]"LOAD           (null)EPORT LENARD WAIT"
  231. 1205 D[178]W[171]G:C[178]10[171]W
  232. 1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  233. 1215 PRINT"                 ";C
  234. 1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  235. 1225 [153]"                 ";D
  236. 1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
  237. 1235 PRINT"                 ";G;""
  238. 1245 GOSUB90
  239. 1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
  240. 1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
  241. 1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
  242. 1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
  243. 1270 IFR$="R"THENRESTORE:GOTO100
  244. 1275 RESTORE
  245. 1280 PRINT"[147] [210]ETURNING TO THE DISK MENU
  246. 1285 [147]"MENU",8
  247. 1290 [138]
  248. 1295 [128]
  249. 1300 [143] BILL CUMBERLAND 90:12:21
  250.